Synapse - email s prilohou

Otázka od: Petr Gregor

8. 10. 2004 10:31

Je mozne poslat e-mail s?prilohou pomoci Synapse ?
Diky za odpoved i za radu jak na to.

Petr Gregor

Odpovedá: Lukas Gebauer

8. 10. 2004 11:38

> Je mozne poslat e-mail s?prilohou pomoci Synapse ?
> Diky za odpoved i za radu jak na to.

Napriklad:

Uses
mimemess, mimepart, smtpsend;

procedure TForm1.Button13Click(Sender: TObject);
var
  m:TMimemess;
  l:tstringlist;
  p: TMimepart;
begin
  m:=TMimemess.create;
  l:=tstringlist.create;
  try
    p := m.AddPartMultipart('mixed', nil);
    l.loadfromfile('c:\search.log');
    m.AddPartText(l,p);
    m.AddPartBinary('c:\search.log',p);
    m.header.from:='youraddress@somewhere.com';
    m.header.tolist.add('You@somewhere.com');
    m.header.subject:='test message';
    m.EncodeMessage;
    SendToRaw('youraddress@somewhere.com', 'You@somewhere.com',
YourSMTPserver, m.lines, '', '');
  finally
    m.free;
    l.free;
  end;
end;

--
Lukas Gebauer.

E-mail: gebauerl@mlp.cz
http://www.ararat.cz/synapse/ - Ararat Synapse - TCP/IP Lib.

Odpovedá: Pave Gazda

8. 10. 2004 11:32

Ahoj

> Je mozne poslat e-mail s?prilohou pomoci Synapse ?
> Petr Gregor

pouzij toto:

MIME.AddPartBinaryFromFile(Nazev_souboru,Part);

Pavel